home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00295.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  339 b   |  14 lines
  1. on enterFrame
  2.   global cycleNo, userNo, beginDate, endDate
  3.   put EMPTY into field "cycle list"
  4.   repeat with i = 1 to getAt(cycleNo, userNo) - 1
  5.     readShortCycleInfo(i)
  6.     put "Cycle" && i & ": " & getDate(beginDate) && "to" && getDate(endDate) & RETURN after field "cycle list"
  7.   end repeat
  8.   cursor(0)
  9. end
  10.  
  11. on exitFrame
  12.   pause()
  13. end
  14.